object ParamDialog: TParamDialog Left = 397 Top = 360 ActiveControl = txtParams AutoScroll = False BorderIcons = [biSystemMenu] Caption = 'Run Parameters' ClientHeight = 340 ClientWidth = 389 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False Position = poOwnerFormCenter OnClose = FormClose OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object btnOK: TCorelButton Left = 228 Top = 310 Width = 75 Height = 23 Anchors = [akRight, akBottom] Caption = 'OK' Default = True ModalResult = 1 TabOrder = 2 OnClick = btnOKClick end object btnCancel: TCorelButton Left = 308 Top = 310 Width = 75 Height = 23 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object PageControl1: TPageControl Left = 8 Top = 8 Width = 373 Height = 294 ActivePage = TabSheet1 Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 object TabSheet1: TTabSheet BorderWidth = 8 Caption = 'Parameters' object grpParams: TGroupBox Left = 0 Top = 0 Width = 349 Height = 121 Align = alTop Caption = '&Parameters to append to the Commandline:' TabOrder = 0 object txtParams: TEdit Left = 8 Top = 16 Width = 311 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 0 end object lstParams: TListBox Left = 8 Top = 40 Width = 332 Height = 73 Anchors = [akLeft, akTop, akRight, akBottom] ItemHeight = 13 TabOrder = 2 OnClick = lstParamsClick OnKeyDown = lstParamsKeyDown end object btnVars: TCorelButton Left = 324 Top = 16 Width = 17 Height = 21 Hint = 'Parameters' Anchors = [akTop, akRight] Caption = '>' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = btnVarsClick end end object grpDir: TGroupBox Left = 0 Top = 129 Width = 349 Height = 121 Align = alBottom Caption = 'Replace &Workingdirectory with:' TabOrder = 1 object txtWorkingDir: TEdit Left = 8 Top = 16 Width = 292 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 0 end object btnWorkingDirBrowse: TCorelButton Left = 305 Top = 16 Width = 17 Height = 21 Hint = 'Browse' Anchors = [akTop, akRight] Caption = '...' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = btnWorkingDirBrowseClick end object btnDirVars: TCorelButton Left = 324 Top = 16 Width = 17 Height = 21 Hint = 'Parameters' Anchors = [akTop, akRight] Caption = '>' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btnDirVarsClick end object lstWorkingDir: TListBox Left = 8 Top = 40 Width = 332 Height = 73 Anchors = [akLeft, akTop, akRight, akBottom] ItemHeight = 13 TabOrder = 3 OnClick = lstWorkingDirClick OnKeyDown = lstParamsKeyDown end end end object TabSheet2: TTabSheet Caption = 'Environment' ImageIndex = 1 object lvwEnv: TListView Left = 8 Top = 8 Width = 349 Height = 225 Anchors = [akLeft, akTop, akRight, akBottom] Columns = < item Caption = 'Name' Width = 108 end item Caption = 'Value' Width = 220 end> ColumnClick = False GridLines = True HideSelection = False ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnDblClick = btnEditEnvClick OnSelectItem = lvwEnvSelectItem end object btnAddEnv: TCorelButton Left = 8 Top = 237 Width = 75 Height = 23 Anchors = [akLeft, akBottom] Caption = '&Add...' TabOrder = 1 OnClick = btnAddEnvClick end object btnEditEnv: TCorelButton Left = 88 Top = 237 Width = 75 Height = 23 Anchors = [akLeft, akBottom] Caption = '&Edit...' Enabled = False TabOrder = 2 OnClick = btnEditEnvClick end object btnDelEnv: TCorelButton Left = 168 Top = 237 Width = 75 Height = 23 Anchors = [akLeft, akBottom] Caption = '&Delete' Enabled = False TabOrder = 3 OnClick = btnDelEnvClick end end end object popParams: TPopupMenu Left = 40 Top = 304 object ActiveDocument1: TMenuItem Tag = 10 Caption = 'Active Document (short)' OnClick = ActiveDocument1Click end object ActiveDocumentlong1: TMenuItem Tag = 11 Caption = 'Active Document (long)' OnClick = ActiveDocument1Click end object N7: TMenuItem Caption = '-' end object ActiveDocumentwithoutExtension1: TMenuItem Tag = 12 Caption = 'Active Document no Extension (short)' OnClick = ActiveDocument1Click end object ActiveDocumentwithExtenshion1: TMenuItem Tag = 13 Caption = 'Active Document no Extension (long)' OnClick = ActiveDocument1Click end object N6: TMenuItem Caption = '-' end object ActiveDocumentTitleshort1: TMenuItem Tag = 14 Caption = 'Active Document Title (short)' OnClick = ActiveDocument1Click end object ActiveDocumentTitlelong1: TMenuItem Tag = 15 Caption = 'Active Document Title (long)' OnClick = ActiveDocument1Click end object N10: TMenuItem Caption = '-' end object ActiveDocumentTitlenoExtensionshort1: TMenuItem Tag = 16 Caption = 'Active Document Title no Extension (short)' OnClick = ActiveDocument1Click end object ActiveDocumentTitlenoExtensionlong1: TMenuItem Tag = 17 Caption = 'Active Document Title no Extension (long)' OnClick = ActiveDocument1Click end object N12: TMenuItem Caption = '-' end object ActiveDocumentFileextension1: TMenuItem Tag = 18 Caption = 'Active Document File extension' OnClick = ActiveDocument1Click end object N3: TMenuItem Caption = '-' end object ProjectFilenameshort1: TMenuItem Tag = 19 Caption = 'Project Filename (short)' OnClick = ActiveDocument1Click end object ProjectFilenamelong1: TMenuItem Tag = 20 Caption = 'Project Filename (long)' OnClick = ActiveDocument1Click end object N11: TMenuItem Caption = '-' end object ChooseFilenameshort1: TMenuItem Tag = 21 Caption = 'Choose Filename (short)' OnClick = ActiveDocument1Click end object ChooseFilenamelong1: TMenuItem Tag = 22 Caption = 'Choose Filename (long)' OnClick = ActiveDocument1Click end object N9: TMenuItem Caption = '-' end object ModifiedFiles1: TMenuItem Tag = 23 Caption = 'Modified Files' OnClick = ActiveDocument1Click end object N2: TMenuItem Caption = '-' end object Documentpath1: TMenuItem Tag = 24 Caption = 'Documentpath (short)' OnClick = ActiveDocument1Click end object Documentpathlong1: TMenuItem Tag = 25 Caption = 'Documentpath (long)' OnClick = ActiveDocument1Click end object N4: TMenuItem Caption = '-' end object Programpath1: TMenuItem Tag = 26 Caption = 'Programpath (short)' OnClick = ActiveDocument1Click end object Programpathlong1: TMenuItem Tag = 27 Caption = 'Programpath (long)' OnClick = ActiveDocument1Click end object N5: TMenuItem Caption = '-' end object Projectpath2: TMenuItem Tag = 28 Caption = 'Projectpath (short)' OnClick = ActiveDocument1Click end object Projectpathlong1: TMenuItem Tag = 26 Caption = 'Projectpath (long)' OnClick = ActiveDocument1Click end object N8: TMenuItem Caption = '-' end object Systemfolders1: TMenuItem Caption = 'Systemfolders' object WindowsDirectory1: TMenuItem Tag = 50 Caption = 'Windows Directory' OnClick = ActiveDocument1Click end object SystemDirectory1: TMenuItem Tag = 51 Caption = 'System Directory' OnClick = ActiveDocument1Click end object TemporaryDirectory2: TMenuItem Tag = 52 Caption = 'Temporary Directory' OnClick = ActiveDocument1Click end end object N1: TMenuItem Caption = '-' end object CurrentWord1: TMenuItem Tag = 30 Caption = 'Current Word' OnClick = ActiveDocument1Click end object LineNumber1: TMenuItem Tag = 31 Caption = 'Line Number' OnClick = ActiveDocument1Click end object ColumnNumber1: TMenuItem Tag = 32 Caption = 'Column Number' OnClick = ActiveDocument1Click end object Prompt1: TMenuItem Tag = 33 Caption = 'Prompt' OnClick = ActiveDocument1Click end end object popDirs: TPopupMenu Left = 72 Top = 304 object Documentdirectory1: TMenuItem Caption = 'Documentpath' Hint = 'Path to the active Document' OnClick = Documentdirectory1Click end object Programdirectory1: TMenuItem Tag = 1 Caption = 'Programpath' Hint = 'Path to the Program' OnClick = Documentdirectory1Click end object Projectpath1: TMenuItem Tag = 2 Caption = 'Projectpath' Hint = 'Path to the Project' OnClick = Documentdirectory1Click end object MenuItem1: TMenuItem Caption = '-' end object WindowsDirectory2: TMenuItem Tag = 3 Caption = 'Windows Directory' Hint = 'Windows Directory' OnClick = Documentdirectory1Click end object SystemDirectory2: TMenuItem Tag = 4 Caption = 'System Directory' Hint = 'System Directory' OnClick = Documentdirectory1Click end object TemporaryDirectory1: TMenuItem Tag = 5 Caption = 'Temporary Directory' Hint = 'Temporary Directory' OnClick = Documentdirectory1Click end end object BrowseFolder: TBrowseForFolder Options = [boNewFolder, boCenter] Left = 8 Top = 304 end end